Ippo

# sessionInfo()
library(leaflet)
library(leaflet.extras)
library(sf)

poly <- read_sf(file.choose())

leaflet() %>%
  addTiles(group = "StreetMap") %>%
  setView(lng = -77, lat = -12, zoom = 5) %>%
  addMarkers(lng = -77.02824, lat = -12.04318, group = "Markers") %>%
  addPolygons(
    data = poly,
    color = "orange", stroke = .5,
    popup = poly$DEPARTAMEN
  ) %>%
  addLayersControl(
    baseGroups = c("StreetMap"),
    overlayGroups = c("Markers"),
    position = "topright"
  ) %>%
  addDrawToolbar()